﻿'*******************************************************************************************
'* Copyright Brügmann Software GmbH, Papenburg
'* Author: Björn Kremer
'* Contact: codeplex<at>patorg.de
'* 
'* VB.CMIS is a VB.NET implementation of the Content Management Interoperability Services (CMIS) standard
'*
'* This file is part of VB.CMIS.
'* 
'* VB.CMIS is free software: you can redistribute it and/or modify
'* it under the terms of the GNU Lesser General Public License as published by
'* the Free Software Foundation, either version 3 of the License, or
'* (at your option) any later version.
'* 
'* VB.CMIS is distributed in the hope that it will be useful,
'* but WITHOUT ANY WARRANTY; without even the implied warranty of
'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'* GNU Lesser General Public License for more details.
'* 
'* You should have received a copy of the GNU Lesser General Public License
'* along with VB.CMIS. If not, see <http://www.gnu.org/licenses/>.
'*******************************************************************************************
Imports System.Runtime.Serialization
Imports System.Xml.Serialization

Namespace ServiceDocument
   <XmlRoot("capabilityCreatablePropertyTypes", Namespace:=CmisNamespaceConstants.Cmis)> _
   Public Class CreatablePropertyTypes
      Implements IXmlSerializable


      Public Property CanCreate As List(Of Enums.PropertyTypeEnum)
     

      Public Function GetSchema() As Xml.Schema.XmlSchema Implements IXmlSerializable.GetSchema
         Return Nothing
      End Function

      Public Sub ReadXml(reader As Xml.XmlReader) Implements IXmlSerializable.ReadXml

      End Sub

      Public Sub WriteXml(writer As Xml.XmlWriter) Implements IXmlSerializable.WriteXml
      

         If CanCreate IsNot Nothing Then
            For Each item As Enums.PropertyTypeEnum In CanCreate
               writer.WriteElementString("canCreate", CmisNamespaceConstants.Cmis, Common.GetDataMemberValueFromEnum(item, GetType(Enums.PropertyTypeEnum)))
            Next
         End If
      End Sub
   End Class
End Namespace